Véletlen számok eltárolása tömbbe, majd az elemek kiíratása (Veletlen.pas)
program Veletlen;
uses crt;
var i,n:integer;
a:array [1..100] of integer;
Létrehozunk egy 100 elemű, egész számokból álló tömböt, melyet a-nak nevezünk el.
BEGIN
write('n:=');
readln(n);
Beolvassuk a tömb elemeinek számát.
i:=1;
while(i<=n) do begin
a[i]:=trunc(90*random+1);
Véletlen számokkal töltjük fel a tömb i-edik elemét. Véletlen számot a random függvénnyel állítunk elő. Ezt 90-el szorozzuk,hogy 0 és 89 közötti számokat kapjunk, majd hozzáadunk 1-et, hogy 1 és 90 közötti számok legyenek. Ezek viszont egyenlőre nem egész számok, ezért a trunc paranccsal levágjuk a szám törtrészét és egész számmá alakítjuk.
i:=i+1;
end;
i:=1;
while(i<=n) do begin
Ciklus segítségével kiírjuk a tömb elemeit.
writeln(a[i]);
i:=i+1;
end;
END.
